home *** CD-ROM | disk | FTP | other *** search
/ Electronic Clipper 1997 February / Electronic Clipper 1997 February.iso / ideasrc / orbit.dir / 00168_Script_168 < prev    next >
Text File  |  1997-01-14  |  2KB  |  88 lines
  1. on startmovie
  2.   global toolH, toolV, gallery
  3.   if toolH = 0 then
  4.     set toolH = 522
  5.     set toolV = 17
  6.   end if
  7.   set the locH of sprite 40 to toolH
  8.   set the locV of sprite 40 to toolV
  9.   set gallery = "slideshow"
  10. end
  11.  
  12. on stopmovie
  13.   global toolH, toolV
  14.   set toolH = the locH of sprite 40
  15.   set toolV = the locV of sprite 40
  16. end
  17.  
  18. on pressit button
  19.   puppetsound "clickdn"
  20.   repeat while the mousedown
  21.     set the visible of sprite button to false
  22.     updatestage
  23.   end repeat
  24.   set the visible of sprite button to true
  25.   puppetsound "clickup"
  26. end
  27.  
  28. on tools
  29.   --go the frame
  30.   repeat with n = 41 to 46
  31.     puppetsprite n, true
  32.   end repeat
  33.   repeat with n = 41 to 46
  34.     set the locV of sprite n to the locV of sprite 40 + 32
  35.   end repeat
  36.   set the locH of sprite 41 to the locH of sprite 40
  37.   set the locH of sprite 42 to the locH of sprite 40 - 96
  38.   set the locH of sprite 43 to the locH of sprite 40 - 35
  39.   
  40.   set the locH of sprite 44 to the locH of sprite 40 + 15
  41.   set the locH of sprite 45 to the locH of sprite 40 + 57
  42.   set the locH of sprite 46 to the locH of sprite 40 + 104
  43.   updatestage
  44. end tools
  45.  
  46. on rollem
  47.   if rollover (3) then go frame "roll1"
  48.   if rollover (4) then go frame "roll2"
  49.   if rollover (5) then go frame "roll3"
  50.   if rollover (6) then go frame "roll4"
  51.   if rollover (7) then go frame "roll5"
  52.   if rollover (8) then go frame "roll6"
  53. end
  54.  
  55. on rollem2
  56.   if rollover (2) then go frame "ray"
  57.   if rollover (3) then go frame "photo"
  58.   if rollover (4) then go frame "prem"
  59. end
  60.  
  61. on rollem3
  62.   if rollover (2) then 
  63.     go frame "bbb"
  64.   else
  65.     go frame "aaa"
  66.   end if
  67. end
  68.  
  69.  
  70. on keyDown 
  71.   if the key = 1 then set the soundLevel to (1)
  72.   if the key = 2 then set the soundLevel to (2)
  73.   if the key = 3 then set the soundLevel to (3)
  74.   if the key = 4 then set the soundLevel to (4)
  75.   if the key = 5 then set the soundLevel to (5)
  76.   if the key = 6 then set the soundLevel to (6)
  77.   if the key = 7 then set the soundLevel to (7)
  78.   if the key = "S" then
  79.     if the volume of sound 2 = 0 then
  80.       set the volume of sound 2 to the soundlevel * 36
  81.     else set the volume of sound 2 to 0
  82.   end if
  83. end keydown
  84.  
  85.  
  86.  
  87.  
  88.